home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q0867.dms / q0867.adf / TRAPDOOR.LZH / Scripts / ReMapper < prev    next >
AmigaDOS Script File  |  1991-09-21  |  1KB  |  39 lines
  1. .key ""
  2. .bra {
  3. .ket }
  4.  
  5. ; This is a tiny and ugly reMapper for my points.
  6.  
  7. echo "ReMapper 1.0 -- Copyright © 1990 by Maximilian Hantsch"
  8.  
  9. ; The first MessageFilter line sends return receipts to all people
  10. ; that sent me netmail with the "Request Return Receipt" flag.
  11.  
  12. mf >t:ReMapper.{$$} rreq and not sent filename lformat "areceipt message %s"
  13.  
  14. ; Remove successful AreaFix messages.
  15.  
  16. mf >>t:ReMapper.{$$} to areafix and recv filename lformat "delete %s"
  17.  
  18. ; Now delete all messages that have been written locally, have the
  19. ; Kill-After-Sent bit set and have been sent already.
  20.  
  21. mf >>t:ReMapper.{$$} kill sent local filename lformat "delete %s"
  22.  
  23. ; Remap mail for the some people.
  24.  
  25. mf >>t:ReMapper.{$$} to "Martin Laubach"  filename lformat "ma %s D 3000 14"
  26. mf >>t:ReMapper.{$$} to "Michael Brunner" filename lformat "ma %s D 3160 2"
  27. mf >>t:ReMapper.{$$} to "Thomas Hantsch"  filename lformat "ma %s D 3160 3"
  28. mf >>t:ReMapper.{$$} to "Rene Hexel"      filename lformat "ma %s D 3160 4"
  29.  
  30. ; He's a twit. I don't want to read anything from him.
  31.  
  32. mf >>t:ReMapper.{$$} from "Cobol Clown" area TECHNICS filename lformat "delete %s"
  33. mf >>t:ReMapper.{$$} from "Cobol Clown" area TEST     filename lformat "delete %s"
  34.  
  35. ; Now do it all:
  36.  
  37. execute t:ReMapper.{$$}
  38. delete t:ReMapper.{$$}
  39.